home *** CD-ROM | disk | FTP | other *** search
/ Shock - The Game / Shock The Game.iso / pc / casts / old.cst / 00004_adjust.ls < prev    next >
Encoding:
Text File  |  1997-04-08  |  3.1 KB  |  120 lines
  1. --global GscreenObject, GnavOb, GsexOb, GvidSprite, GqaOb
  2. --
  3. --addCard GscreenObject, 37, 211, 553, "bag"
  4. --addCard GscreenObject, 38, 201, 480, "mask"
  5. --addCard GscreenObject, 39, 191, 409, "candy"
  6. --addCard GscreenObject, 40, 181, 353, "toys"
  7. --addCard GscreenObject, 41, 171, 280, "hammer"
  8. --addCard GscreenObject, 42, 161, 218, "flower"
  9. --addCard GscreenObject, 43, 151, 153, "rock"
  10. --
  11. --addCard GscreenObject, 44, 231, 172, "card"
  12. --addCard GscreenObject, 45, 241, 258, "tri"
  13. --addCard GscreenObject, 46, 251, 350, "blue"
  14. --addCard GscreenObject, 47, 261, 443, "red"
  15. --addCard GscreenObject, 48, 271, 535, "green"
  16. --
  17. --
  18. --on red 
  19. --  if the PmyLink of GnavOb = #n41w then 
  20. --    goThing "sex"
  21. --    set GsexOb = new(script "GsexOb", 2)
  22. --  end if
  23. --end
  24. --
  25. --
  26. --on blue 
  27. --  if the PmyLink of GnavOb = #n41e then 
  28. --    goThing "sex"
  29. --    set GsexOb = new(script "GsexOb", 1)
  30. --  end if
  31. --end
  32. --
  33. --
  34. --on green 
  35. --  if the PmyLink of GnavOb = #n40w then 
  36. --    goThing "sex"
  37. --    set GsexOb = new(script "GsexOb", 3)
  38. --  end if
  39. --end
  40. --
  41. --
  42. --on moveMallet whichSprite
  43. --  
  44. --  set the membernum of sprite whichSprite = member 303 of castlib "interface"
  45. --  cursor 200
  46. --  repeat while the mouseDown
  47. --    set the loch of sprite whichSprite = the mouseh
  48. --    set the locv of sprite whichSprite = the mousev
  49. --    if the locv of sprite whichSprite > 57 then set the locv of sprite whichSprite = 57
  50. --    updatestage
  51. --    if sprite whichSprite intersects 43 then
  52. --      addCard GscreenObject, 37, 211, 553, 0
  53. --      set the PtheBag of GscreenObject = 1
  54. --      -- addCard GscreenObject, 46, 251, 350, 0
  55. --      if objectP(GqaOb) then set the PmyGetStuffFlag of getat(the PmyGirlList of GqaOb,1) = 1
  56. --      moveCards GscreenObject, -1
  57. --      exit repeat
  58. --    end if
  59. --    if not the mousedown then exit repeat
  60. --  end repeat
  61. --  set the loch of sprite whichSprite = 280
  62. --  set the locv of sprite whichSprite = 40
  63. --  set the membernum of sprite whichSprite = member 171 of castlib "interface"
  64. --  cursor 0
  65. --  updatestage
  66. --  
  67. --end
  68. --
  69. --
  70. --on cardStuff
  71. --  if the PmyLink of GnavOb = #n8n then
  72. --    repeat with x = 8214 to 8271
  73. --      set the movietime of sprite GvidSprite = x
  74. --      updatestage
  75. --    end repeat
  76. --    goThing "key"
  77. --  end if
  78. --  
  79. --end
  80. --
  81. --on retreatKey
  82. --  displayThing ""
  83. --  repeat with x = 24 to 29
  84. --    puppetsprite x, 0
  85. --  end repeat
  86. --  returnNav #n8n, 8274
  87. --  puppetsprite GvidSprite, 1
  88. --  set the loch of sprite GvidSprite = 372
  89. --  repeat with x = 8274 to 8340
  90. --    set the movieTime of sprite GvidSprite = x 
  91. --    updatestage
  92. --  end repeat
  93. --end
  94. --
  95. --on gloveThing
  96. --  sound stop 1 
  97. --  go "glv"
  98. --  set the PtheCard of GscreenObject = 1
  99. --  addCard GscreenObject, 44, 231, 172, 0
  100. --  moveCards GscreenObject, -1
  101. --end
  102. --
  103. --
  104. --on codeMatch
  105. --  repeat with x = 24 to 29
  106. --    puppetsprite x, 0
  107. --  end repeat
  108. --  returnNav #n17n, 50658
  109. --  puppetsprite GvidSprite, 1
  110. --  set the loch of sprite GvidSprite = 372
  111. --  repeat with x = 8274 to 8340
  112. --    set the movieTime of sprite GvidSprite = x 
  113. --    updatestage
  114. --  end repeat
  115. --  repeat with x = 50436 to 50658
  116. --    set the movieTime of sprite GvidSprite = x 
  117. --    updatestage
  118. --  end repeat
  119. --end
  120.